home *** CD-ROM | disk | FTP | other *** search
- object KsFontPanel: TTeFontPanel
- Left = 0
- Top = 0
- Width = 352
- Height = 331
- TabOrder = 0
- object FontLabel: TTeLabel
- Left = 6
- Top = 8
- Width = 24
- Height = 13
- Caption = 'Font:'
- Color = clBtnFace
- ParentColor = False
- end
- object FontStyleLabel: TTeLabel
- Left = 158
- Top = 8
- Width = 48
- Height = 13
- Caption = 'Font style:'
- Color = clBtnFace
- ParentColor = False
- end
- object FontSizeLabel: TTeLabel
- Left = 276
- Top = 8
- Width = 23
- Height = 13
- Caption = 'Size:'
- Color = clBtnFace
- ParentColor = False
- end
- object FontScriptLabel: TTeLabel
- Left = 158
- Top = 246
- Width = 30
- Height = 13
- Caption = 'Script:'
- Color = clBtnFace
- ParentColor = False
- end
- object teFontName: TTeSEdit
- Left = 6
- Top = 24
- Width = 145
- Height = 21
- TabOrder = 0
- ThemeObject = 'default'
- end
- object teFontList: TTeListBox
- Left = 6
- Top = 48
- Width = 145
- Height = 112
- Performance = kspDoubleBuffer
- OnClick = teFontListClick
- AllowGrayed = False
- AlwaysShowScrlBar = False
- BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
- BevelInner = kbvLowered
- BevelOuter = kbvLowered
- BevelKind = kbkSingle
- BevelWidth = 1
- BorderWidth = 0
- Columns = 0
- Flat = True
- ItemHeight = 18
- Sorted = True
- ListStyle = lbFonts
- ThemeObject = 'default'
- TabOrder = 1
- end
- object teFontStyle: TTeSEdit
- Left = 158
- Top = 24
- Width = 111
- Height = 21
- TabOrder = 2
- ThemeObject = 'default'
- end
- object teStyleList: TTeListBox
- Left = 158
- Top = 48
- Width = 111
- Height = 112
- Performance = kspDoubleBuffer
- OnClick = teStyleListClick
- AllowGrayed = False
- AlwaysShowScrlBar = False
- BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
- BevelInner = kbvLowered
- BevelOuter = kbvLowered
- BevelKind = kbkSingle
- BevelWidth = 1
- BorderWidth = 0
- Columns = 0
- Flat = True
- Items.Strings = (
- 'Regular'
- 'Italic'
- 'Bold'
- 'Bold Italic')
- ItemHeight = 18
- ThemeObject = 'default'
- TabOrder = 3
- end
- object teFontSize: TTeSEdit
- Left = 276
- Top = 24
- Width = 51
- Height = 21
- TabOrder = 4
- ThemeObject = 'default'
- end
- object teSizeList: TTeListBox
- Left = 276
- Top = 48
- Width = 49
- Height = 112
- Performance = kspDoubleBuffer
- OnClick = teSizeListClick
- AllowGrayed = False
- AlwaysShowScrlBar = False
- BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
- BevelInner = kbvLowered
- BevelOuter = kbvLowered
- BevelKind = kbkSingle
- BevelWidth = 1
- BorderWidth = 0
- Columns = 0
- Flat = True
- Items.Strings = (
- '4'
- '6'
- '8'
- '10'
- '12'
- '14'
- '16'
- '18'
- '20'
- '22'
- '24')
- ItemHeight = 18
- ThemeObject = 'default'
- TabOrder = 5
- end
- object teEffectGroup: TTeGroupBox
- Left = 6
- Top = 166
- Width = 147
- Height = 123
- Visible = False
- CaptionMargin = 12
- Caption = 'Effects'
- CheckBoxAlignment = kalLeftJustify
- ThemeObject = 'default'
- Transparent = True
- TabOrder = 6
- UseCheckBox = False
- object FontColorLabel: TTeLabel
- Left = 10
- Top = 70
- Width = 27
- Height = 13
- Caption = 'Color:'
- Color = clBtnFace
- ParentColor = False
- end
- object teStrikeout: TTeCheckBox
- Left = 10
- Top = 20
- Width = 127
- Height = 20
- Performance = kspDoubleBuffer
- OnClick = teStrikeoutClick
- Caption = 'Strikeout'
- AllowGrayed = False
- Alignment = kalLeftJustify
- Checked = False
- Spacing = 5
- State = kcbsUnChecked
- ThemeObject = 'default'
- TabOrder = 0
- Transparent = True
- WordWrap = False
- end
- object teUnderline: TTeCheckBox
- Left = 10
- Top = 44
- Width = 125
- Height = 20
- Performance = kspDoubleBuffer
- OnClick = teUnderlineClick
- Caption = 'teUnderline'
- AllowGrayed = False
- Alignment = kalLeftJustify
- Checked = False
- Spacing = 5
- State = kcbsUnChecked
- ThemeObject = 'default'
- TabOrder = 1
- Transparent = True
- WordWrap = False
- end
- object teFontColor: TTeComboBox
- Left = 10
- Top = 86
- Width = 125
- Height = 23
- Cursor = crIBeam
- Performance = kspDoubleBuffer
- BevelWidth = 1
- BorderWidth = 3
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- TabOrder = 2
- OnChange = teFontColorChange
- AutoComplete = False
- ComboStyle = kcsDropDownList
- ItemHeight = 18
- ListStyle = lbColorNames
- end
- end
- object FontSample: TTeGroupBox
- Left = 156
- Top = 166
- Width = 173
- Height = 77
- CaptionMargin = 12
- Caption = 'Sample'
- CheckBoxAlignment = kalLeftJustify
- ThemeObject = 'default'
- Transparent = True
- TabOrder = 7
- UseCheckBox = False
- object teSamplePanel: TTePanel
- Left = 12
- Top = 20
- Width = 149
- Height = 45
- BorderWidth = 2
- TabOrder = 0
- ThemeObject = 'default'
- object tePreviewPaint: TTePaintBox
- Left = 3
- Top = 3
- Width = 143
- Height = 39
- Align = alClient
- Color = clBtnFace
- ParentColor = False
- OnPaint = tePreviewPaintPaint
- end
- end
- end
- object teScript: TTeComboBox
- Left = 158
- Top = 264
- Width = 169
- Height = 23
- Cursor = crIBeam
- Performance = kspDoubleBuffer
- BevelWidth = 1
- BorderWidth = 3
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- TabOrder = 8
- OnChange = teScriptChange
- AutoComplete = False
- ComboStyle = kcsDropDownList
- end
- end
-